home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 180 / 180.d81 / b.geo-stars ii (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  81 lines
  1. 10 poke53281,0:poke53280,0:print"[147]"
  2. 12 dt$="......................................................................"
  3. 20 dv=peek(186):ifdv<8thendv=8
  4. 30 printtab(13)"[155][215]alt [200]arned's[129]"
  5. 40 print"  [176][192][192][174][176][192][192][174][176][192][192][174]   [176][192][192][174][176][192][178][192][174][176][192][192][174][176][192][192][174][176][192][192][174]
  6. 42 [153]"  (NULL) tan^-tan< (NULL)  (NULL) tan /tantan^  (NULL)  -tantan<-=tanexp/tantan^
  7. 44 print"  [173][192][192][189][173][192][192][189][173][192][192][189]   [173][192][192][189]  [177]  [189]  [173][189][173][192][189][173][192][192][189]"
  8. 46 print"     [176][192][192][174][176][192][192][174][176][192][174] [176][176][192][178][192][174][176][192][192][174][176][192][192][174][176][192][178][192][174]
  9. 48 [153]"     (NULL)   (NULL)  (NULL)(NULL) (NULL) (NULL)  (NULL)  -tan< /tantan^  (NULL)
  10. 50 print"     [173][192][192][189][173][192][192][189][189] [173][192][189]  [177]  [173][192][192][189][173][192][192][189]  [177]
  11. 52 [153]"list               valdition right$right$
  12. 60 print"     1[154] - [208]rint out a [195]ontest [194]allot
  13. 62 [153]"     2cont - (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  14. 70 poke198,0
  15. 80 geta$:ifa$=""then80
  16. 90 ifa$="2"then40000
  17. 100 ifa$<>"1"then80
  18. 110 print" [158][199]et printer ready and press a key.[154][145]"
  19. 120 poke198,0
  20. 130 geta$:ifa$=""then130
  21. 140 open4,4,7
  22. 150 print#4,,,,"[215][193][204][212] [200][193][210][206][197][196]'[211] [199][197][207]-[211][212][193][210][211] [195][207][206][212][197][211][212]
  23. 160 [152]4:[152]4:[152]4
  24. 170 [152]4,,"(NULL)atn(NULL)val:"[170][200](dt$,61)
  25. 180 [152]4
  26. 190 [152]4,,"atnstr$str$(NULL)val(NULL)(NULL):"[170][200](dt$,58)
  27. 200 [152]4
  28. 210 [152]4,,"lenright$(NULL)(NULL):"[170][200](dt$,30)[170]"(NULL)(NULL)atn(NULL)val:"[170][200](dt$,10)[170]"(NULL)right$(NULL):"[170][200](dt$,11)
  29. 220 [152]4
  30. 230 [152]4,,"ascill in the information above and then fill in the names of the
  31. 240 print#4,,"actors shown in the geo[208]aint document. [193]n anagram of the name of
  32. 250 [152]4,,"each actor is given to help you. (NULL)hen send your entry to:
  33. 260 print#4
  34. 270 print#4,,,"[204][207][193][196][211][212][193][210] [199]eo-[211]tars [195]ontest [201][201]
  35. 280 [152]4,,,"606 lenommon (NULL)treet
  36. 290 print#4,,,"[211]hreveport [204][193] 71101
  37. 300 [152]4:[152]4
  38. 302 [152]4,,"atnnagrammed (NULL)ame     (NULL)eal (NULL)ame
  39. 304 print#4,,"-----------------------------"
  40. 306 print#4
  41. 310 print#4,,"[210][197][193][204] [200][193][213][204][211] -- "+left$(dt$,52)
  42. 312 print#4
  43. 320 print#4,,"[201][206][212][197][206][211][197] [195][207][214][197][206][211] -- "+left$(dt$,48)
  44. 322 print#4
  45. 330 print#4,,"[210][213][206][212][217] [199][207][207][194][197][210] -- "+left$(dt$,50)
  46. 332 print#4
  47. 340 print#4,,"[211][193][206][197] [202][193][210] [205][197][211][211] -- "+left$(dt$,49)
  48. 342 print#4
  49. 350 print#4,,"[212][200][193][212] [211][197][206][207][210][193] -- "+left$(dt$,51)
  50. 352 print#4
  51. 360 print#4,,"[210][197][196] [194][210][201][195][203] [193][198][210][207] [195][210][207][215][196] -- "+left$(dt$,42)
  52. 362 print#4
  53. 370 print#4,,"[205][217] [201][195][217] [202][193][199][205][197][206] -- "+left$(dt$,49)
  54. 372 print#4
  55. 380 print#4,,"[193][194][200][207][210][210][197][196] [201][195][207][206] -- "+left$(dt$,49)
  56. 382 print#4
  57. 390 print#4,,"[206][197][204][204] [193][216][197][210] -- "+left$(dt$,53)
  58. 392 print#4
  59. 400 print#4,,"[210][197][206][206][217] [204]. [210][213][194][217] -- "+left$(dt$,49)
  60. 402 print#4
  61. 410 print#4,,"[193][204][193] [202][213][196][193][201][211][205] -- "+left$(dt$,51)
  62. 412 print#4
  63. 420 print#4,,"[199][210][197][193][212][197][210] [198][207][199] -- "+left$(dt$,51)
  64. 422 print#4
  65. 470 print#4:close4
  66. 480 poke186,dv
  67. 490 print"                                     [145]"
  68. 500 goto70
  69. 999 goto999
  70. 10000 d=peek(186):n$="0:b.geo-stars ii":open15,d,15,"s"+n$:close15:saven$,d:end
  71. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  72. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  73. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  74. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  75. 40040 close2:open2,i,2:close2:ifstthen40060
  76. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  77. 40060 next:return
  78. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  79. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  80. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  81.